home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 July / 64er_Magazin_93-07_1993_Markt__Technik_de_Side_A.d64 / vektordemo _bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  456b  |  21 lines
  1. 100 print"[147]   demo zur vektorgrafik"
  2. 110 print"    (w) by f. schneider"
  3. 120 input" zahl (von -60 bis +60)";k
  4. 130 k=int(k+0.5)
  5. 140 ifk<-60ork>60thenprint"[145][145]":goto120
  6. 150 rem
  7. 160 sys49152,1,0
  8. 170 fori=-ktokstepk/5
  9. 180 sys49158,1,k,k,-k,-k,k,i
  10. 190 sys49158,1,-k,k,-k,-k,-k,i
  11. 200 sys49158,1,-k,-k,-k,k,-k,i
  12. 210 sys49158,1,k,-k,-k,k,k,i
  13. 220 nexti
  14. 230 sys49158,1,k,k,k,-k,k,k
  15. 240 sys49158,1,-k,k,k,-k,-k,k
  16. 250 sys49158,1,-k,-k,k,k,-k,k
  17. 260 sys49158,1,k,-k,k,k,k,k
  18. 270 poke198,0:wait198,1:poke198,0
  19. 280 sys49155
  20. 290 goto120
  21.